home *** CD-ROM | disk | FTP | other *** search
/ Ultra Gameplayers 101 / Ultra Game Players Magazine, No. 101 - September 1997 (Imagine Publishing, Inc.)(1997).iso / pc / new_ugp.dxr / 00048_Main Menu Init.ls < prev    next >
Encoding:
Text File  |  1997-07-10  |  1.5 KB  |  30 lines
  1. on exitFrame
  2.   global baseMemory
  3.   set newMenu to CreateMenu()
  4.   quitButton(newMenu, [#downMember: "ugpMM_71"])
  5.   ShowVolumeControl()
  6.   SetSectionButton(newMenu, 3, 11, "ugpMM-bootcamp", "bootcamp")
  7.   SetSectionButton(newMenu, 4, 12, "ugpMM-cover", "coverstory")
  8.   SetSectionButton(newMenu, 5, 13, "ugpMM-online2", "online")
  9.   SetSectionButton(newMenu, 6, 14, "CHACHING.AIF", "sponsors intro")
  10.   SetSectionButton(newMenu, 7, 15, "ugpMM-platforms", "platforms")
  11.   SetSectionButton(newMenu, 8, 16, "ROCKFALL.AIF", "crypt intro")
  12.   SetcreditsButton(newMenu, 19, 20, "ugpMM-credits/spaceship", "credits", ["ugpMM_24", "ugpMM_23", "ugpMM_22", "ugpMM_21", "ugpMM_20"])
  13.   cursor(-1)
  14.   put "Memory used:" && baseMemory - the freeBytes
  15. end
  16.  
  17. on SetSectionButton newMenu, sNum, showSprite, audioName, destination
  18.   set params to [#hotSprites: [sNum, showSprite], #destination: destination, #showSpriteList: [showSprite], #audioMember: audioName]
  19.   set button to BasicButton(newMenu, params)
  20.   AddRoll(button, NewObject(newMenu, "Visibility Hilite Class", params))
  21.   AddRollOnce(button, NewObject(newMenu, "Sound FX Class", params))
  22.   return button
  23. end
  24.  
  25. on SetcreditsButton newMenu, sNum, showSprite, audioName, destination, animCastList
  26.   set button to SetSectionButton(newMenu, sNum, showSprite, audioName, destination)
  27.   set replaceParams to [#spritenum: showSprite, #animCastList: animCastList, #cycleTime: 6]
  28.   AddRoll(button, NewObject(newMenu, "Member Replacement Class", replaceParams))
  29. end
  30.